/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Util / In-Iz / InvisWin.sit / InvisiWin.c

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 49 6e 76 69 73 69 | 57 69 6e 2e 63 00 00 00 |..Invisi|Win.c...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 07 76 00 | 00 01 60 a1 04 f1 a2 a1 |......v.|..`.....|
|00000060| 04 f1 a2 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 39 3e 00 00 |........|....9>..|
|00000080| 2f 2a 0d 09 49 6e 76 69 | 73 69 57 69 6e 20 46 4b |/*..Invi|siWin FK|
|00000090| 65 79 20 23 37 20 20 2d | 2d 20 20 56 65 72 73 69 |ey #7  -|-  Versi|
|000000a0| 6f 6e 20 31 2e 31 20 20 | 2d 2d 20 20 4e 6f 76 20 |on 1.1  |--  Nov |
|000000b0| 32 38 2c 20 31 39 38 38 | 0d 09 0d 09 43 6f 70 79 |28, 1988|....Copy|
|000000c0| 72 69 67 68 74 20 28 63 | 29 20 31 39 38 38 2d 38 |right (c|) 1988-8|
|000000d0| 39 20 62 79 20 4e 65 61 | 6c 20 45 2e 20 54 72 61 |9 by Nea|l E. Tra|
|000000e0| 75 74 6d 61 6e 20 26 20 | 4a 6f 73 68 20 50 72 69 |utman & |Josh Pri|
|000000f0| 74 69 6b 69 6e 0d 09 0d | 09 27 53 68 61 72 65 57 |tikin...|.'ShareW|
|00000100| 61 72 65 27 20 2d 2d 20 | 50 6c 65 61 73 65 20 73 |are' -- |Please s|
|00000110| 65 6e 64 20 24 33 20 63 | 6f 6e 74 72 69 62 75 74 |end $3 c|ontribut|
|00000120| 69 6f 6e 20 74 6f 3a 0d | 09 09 4e 65 61 6c 20 54 |ion to:.|..Neal T|
|00000130| 72 61 75 74 6d 61 6e 0d | 09 09 31 37 30 31 20 53 |rautman.|..1701 S|
|00000140| 2e 57 2e 20 34 32 6e 64 | 20 53 74 72 65 65 74 0d |.W. 42nd| Street.|
|00000150| 09 09 46 61 72 67 6f 2c | 20 4e 44 20 35 38 31 30 |..Fargo,| ND 5810|
|00000160| 33 0d 09 0d 09 61 6e 64 | 20 61 20 24 2e 32 30 20 |3....and| a $.20 |
|00000170| 63 6f 6e 74 72 69 62 75 | 74 69 6f 6e 20 74 6f 3a |contribu|tion to:|
|00000180| 09 28 20 3c 2d 20 6a 75 | 73 74 20 6b 69 64 64 69 |.( <- ju|st kiddi|
|00000190| 6e 67 29 0d 09 09 4a 6f | 73 68 20 50 72 69 74 69 |ng)...Jo|sh Priti|
|000001a0| 6b 69 6e 0d 09 09 31 34 | 30 34 20 47 72 65 65 6e |kin...14|04 Green|
|000001b0| 77 6f 72 74 68 20 50 6c | 61 63 65 0d 09 09 53 61 |worth Pl|ace...Sa|
|000001c0| 6e 74 61 20 42 61 72 62 | 61 72 61 2c 20 43 41 20 |nta Barb|ara, CA |
|000001d0| 39 33 31 30 38 0d 09 0d | 09 54 68 69 73 20 46 4b |93108...|.This FK|
|000001e0| 65 79 20 6d 61 6b 65 73 | 20 74 68 65 20 63 6f 6e |ey makes| the con|
|000001f0| 74 65 6e 74 20 72 65 67 | 69 6f 6e 20 6f 66 20 74 |tent reg|ion of t|
|00000200| 68 65 20 66 72 6f 6e 74 | 20 77 69 6e 64 6f 77 20 |he front| window |
|00000210| 74 72 61 6e 73 70 61 72 | 65 6e 74 2e 0d 09 09 28 |transpar|ent....(|
|00000220| 49 66 20 69 74 20 69 73 | 20 61 6c 72 65 61 64 79 |If it is| already|
|00000230| 20 74 72 61 6e 73 70 61 | 72 65 6e 74 2c 20 74 68 | transpa|rent, th|
|00000240| 65 20 63 6f 6e 74 65 6e | 74 20 72 65 67 69 6f 6e |e conten|t region|
|00000250| 20 72 65 74 75 72 6e 73 | 29 0d 09 0d 09 38 2e 37 | returns|)....8.7|
|00000260| 2e 38 39 20 2d 20 55 70 | 64 61 74 65 64 20 73 6f |.89 - Up|dated so|
|00000270| 20 74 68 61 74 20 6f 70 | 74 69 6f 6e 20 66 6c 69 | that op|tion fli|
|00000280| 70 73 20 61 6c 6c 20 74 | 68 65 20 77 69 6e 64 6f |ps all t|he windo|
|00000290| 77 73 20 69 6e 20 61 6e | 20 61 70 70 6c 69 63 61 |ws in an| applica|
|000002a0| 74 69 6f 6e 0d 09 09 09 | 62 79 20 4a 6f 73 68 20 |tion....|by Josh |
|000002b0| 50 72 69 74 69 6b 69 6e | 2e 20 20 47 45 6e 69 65 |Pritikin|.  GEnie|
|000002c0| 20 4a 2e 50 72 69 74 69 | 6b 69 6e 2e 0d 09 09 09 | J.Priti|kin.....|
|000002d0| 0d 09 09 09 54 68 69 73 | 20 6d 6f 64 69 66 69 63 |....This| modific|
|000002e0| 61 74 69 6f 6e 20 69 73 | 20 72 65 61 6c 20 75 73 |ation is| real us|
|000002f0| 65 66 75 6c 20 69 66 20 | 79 6f 75 20 75 73 65 20 |eful if |you use |
|00000300| 6d 75 6c 74 69 66 69 6e | 64 65 72 20 62 65 63 61 |multifin|der beca|
|00000310| 75 73 65 0d 09 09 09 79 | 6f 75 20 63 61 6e 20 68 |use....y|ou can h|
|00000320| 69 64 65 20 61 6c 6c 20 | 6f 66 20 74 68 65 20 77 |ide all |of the w|
|00000330| 69 6e 64 6f 77 73 20 69 | 6e 20 61 6e 20 61 70 70 |indows i|n an app|
|00000340| 6c 69 63 61 74 69 6f 6e | 2c 20 74 6f 20 73 70 65 |lication|, to spe|
|00000350| 65 64 0d 09 09 09 75 70 | 64 61 74 69 6e 67 2e 20 |ed....up|dating. |
|00000360| 20 49 20 61 6c 73 6f 20 | 6d 61 6b 65 20 61 20 71 | I also |make a q|
|00000370| 75 69 63 6b 65 79 20 63 | 6f 6d 62 69 6e 61 74 69 |uickey c|ombinati|
|00000380| 6f 6e 20 28 63 6f 6e 74 | 72 6f 6c 2d 73 70 61 63 |on (cont|rol-spac|
|00000390| 65 29 20 74 6f 0d 09 09 | 09 6d 61 6b 65 20 69 74 |e) to...|.make it|
|000003a0| 20 65 61 73 69 65 72 20 | 74 6f 20 72 75 6e 20 74 | easier |to run t|
|000003b0| 68 65 20 66 6b 65 79 2e | 20 20 57 68 6f 20 6e 65 |he fkey.|  Who ne|
|000003c0| 65 64 73 20 53 79 73 20 | 37 2e 30 20 77 69 74 68 |eds Sys |7.0 with|
|000003d0| 20 69 74 27 73 0d 09 09 | 09 6c 61 79 65 72 20 68 | it's...|.layer h|
|000003e0| 69 64 69 6e 67 20 61 62 | 69 6c 69 74 69 65 73 3f |iding ab|ilities?|
|000003f0| 0d 2a 2f 0d 0d 6d 61 69 | 6e 28 29 0d 7b 0d 09 72 |.*/..mai|n().{..r|
|00000400| 65 67 69 73 74 65 72 20 | 57 69 6e 64 6f 77 50 65 |egister |WindowPe|
|00000410| 65 6b 09 77 69 6e 3b 0d | 09 72 65 67 69 73 74 65 |ek.win;.|.registe|
|00000420| 72 20 52 67 6e 48 61 6e | 64 6c 65 09 63 6f 6e 74 |r RgnHan|dle.cont|
|00000430| 3b 0d 09 72 65 67 69 73 | 74 65 72 20 6c 6f 6e 67 |;..regis|ter long|
|00000440| 09 6b 65 79 73 5b 34 5d | 3b 0d 09 72 65 67 69 73 |.keys[4]|;..regis|
|00000450| 74 65 72 20 42 6f 6f 6c | 65 61 6e 09 77 61 73 56 |ter Bool|ean.wasV|
|00000460| 69 73 3b 0d 09 0d 09 77 | 69 6e 20 3d 20 28 57 69 |is;....w|in = (Wi|
|00000470| 6e 64 6f 77 50 65 65 6b | 29 46 72 6f 6e 74 57 69 |ndowPeek|)FrontWi|
|00000480| 6e 64 6f 77 28 29 3b 0d | 09 69 66 20 28 21 77 69 |ndow();.|.if (!wi|
|00000490| 6e 29 20 7b 0d 09 09 53 | 79 73 42 65 65 70 28 31 |n) {...S|ysBeep(1|
|000004a0| 29 3b 0d 09 09 72 65 74 | 75 72 6e 3b 0d 09 7d 0d |);...ret|urn;..}.|
|000004b0| 09 0d 09 63 6f 6e 74 20 | 3d 20 77 69 6e 2d 3e 63 |...cont |= win->c|
|000004c0| 6f 6e 74 52 67 6e 3b 0d | 09 0d 09 47 65 74 4b 65 |ontRgn;.|...GetKe|
|000004d0| 79 73 28 6b 65 79 73 29 | 3b 0d 09 69 66 20 28 28 |ys(keys)|;..if ((|
|000004e0| 6b 65 79 73 5b 31 5d 20 | 3e 3e 20 33 29 20 26 20 |keys[1] |>> 3) & |
|000004f0| 30 78 30 31 29 20 7b 0d | 09 09 69 66 20 28 45 6d |0x01) {.|..if (Em|
|00000500| 70 74 79 52 67 6e 28 63 | 6f 6e 74 29 29 20 7b 0d |ptyRgn(c|ont)) {.|
|00000510| 09 09 09 77 61 73 56 69 | 73 20 3d 20 66 61 6c 73 |...wasVi|s = fals|
|00000520| 65 3b 0d 09 09 09 57 69 | 6e 56 69 73 28 77 69 6e |e;....Wi|nVis(win|
|00000530| 29 3b 0d 09 09 7d 20 65 | 6c 73 65 20 7b 0d 09 09 |);...} e|lse {...|
|00000540| 09 77 61 73 56 69 73 20 | 3d 20 74 72 75 65 3b 0d |.wasVis |= true;.|
|00000550| 09 09 09 57 69 6e 49 6e | 76 28 77 69 6e 29 3b 0d |...WinIn|v(win);.|
|00000560| 09 09 7d 0d 09 09 77 69 | 6e 20 3d 20 77 69 6e 2d |..}...wi|n = win-|
|00000570| 3e 6e 65 78 74 57 69 6e | 64 6f 77 3b 0d 09 09 0d |>nextWin|dow;....|
|00000580| 09 09 77 68 69 6c 65 28 | 77 69 6e 20 21 3d 20 30 |..while(|win != 0|
|00000590| 6c 29 20 7b 0d 09 09 09 | 69 66 20 28 21 77 69 6e |l) {....|if (!win|
|000005a0| 2d 3e 76 69 73 69 62 6c | 65 29 20 67 6f 74 6f 20 |->visibl|e) goto |
|000005b0| 6e 78 74 3b 0d 09 09 09 | 0d 09 09 09 63 6f 6e 74 |nxt;....|....cont|
|000005c0| 20 3d 20 77 69 6e 2d 3e | 63 6f 6e 74 52 67 6e 3b | = win->|contRgn;|
|000005d0| 0d 09 09 09 69 66 20 28 | 45 6d 70 74 79 52 67 6e |....if (|EmptyRgn|
|000005e0| 28 63 6f 6e 74 29 29 20 | 7b 0d 09 09 09 09 69 66 |(cont)) |{.....if|
|000005f0| 20 28 21 77 61 73 56 69 | 73 29 20 7b 0d 09 09 09 | (!wasVi|s) {....|
|00000600| 09 09 57 69 6e 56 69 73 | 28 77 69 6e 29 3b 0d 09 |..WinVis|(win);..|
|00000610| 09 09 09 7d 0d 09 09 09 | 7d 20 65 6c 73 65 20 7b |...}....|} else {|
|00000620| 0d 09 09 09 09 69 66 20 | 28 77 61 73 56 69 73 29 |.....if |(wasVis)|
|00000630| 20 7b 0d 09 09 09 09 09 | 57 69 6e 49 6e 76 28 77 | {......|WinInv(w|
|00000640| 69 6e 29 3b 0d 09 09 09 | 09 7d 0d 09 09 09 7d 0d |in);....|.}....}.|
|00000650| 09 09 09 0d 09 09 09 6e | 78 74 3a 0d 09 09 09 77 |.......n|xt:....w|
|00000660| 69 6e 20 3d 20 77 69 6e | 2d 3e 6e 65 78 74 57 69 |in = win|->nextWi|
|00000670| 6e 64 6f 77 3b 0d 09 09 | 7d 0d 09 7d 20 65 6c 73 |ndow;...|}..} els|
|00000680| 65 20 7b 0d 09 09 69 66 | 20 28 45 6d 70 74 79 52 |e {...if| (EmptyR|
|00000690| 67 6e 28 63 6f 6e 74 29 | 29 09 57 69 6e 56 69 73 |gn(cont)|).WinVis|
|000006a0| 28 77 69 6e 29 3b 0d 09 | 09 65 6c 73 65 09 09 09 |(win);..|.else...|
|000006b0| 09 09 09 57 69 6e 49 6e | 76 28 77 69 6e 29 3b 0d |...WinIn|v(win);.|
|000006c0| 09 7d 0d 7d 0d 0d 57 69 | 6e 56 69 73 28 77 69 6e |.}.}..Wi|nVis(win|
|000006d0| 29 0d 57 69 6e 64 6f 77 | 50 65 65 6b 09 77 69 6e |).Window|Peek.win|
|000006e0| 3b 0d 7b 0d 09 53 68 6f | 77 48 69 64 65 28 77 69 |;.{..Sho|wHide(wi|
|000006f0| 6e 2c 20 66 61 6c 73 65 | 29 3b 0d 09 53 68 6f 77 |n, false|);..Show|
|00000700| 48 69 64 65 28 77 69 6e | 2c 20 74 72 75 65 29 3b |Hide(win|, true);|
|00000710| 0d 7d 0d 0d 57 69 6e 49 | 6e 76 28 77 69 6e 29 0d |.}..WinI|nv(win).|
|00000720| 57 69 6e 64 6f 77 50 65 | 65 6b 09 77 69 6e 3b 0d |WindowPe|ek.win;.|
|00000730| 7b 0d 09 72 65 67 69 73 | 74 65 72 20 52 67 6e 48 |{..regis|ter RgnH|
|00000740| 61 6e 64 6c 65 09 63 6f | 6e 74 3b 0d 09 0d 09 63 |andle.co|nt;....c|
|00000750| 6f 6e 74 20 3d 20 77 69 | 6e 2d 3e 63 6f 6e 74 52 |ont = wi|n->contR|
|00000760| 67 6e 3b 0d 09 77 69 6e | 2d 3e 63 6f 6e 74 52 67 |gn;..win|->contRg|
|00000770| 6e 20 3d 20 4e 65 77 52 | 67 6e 28 29 3b 0d 09 44 |n = NewR|gn();..D|
|00000780| 69 66 66 52 67 6e 28 77 | 69 6e 2d 3e 73 74 72 75 |iffRgn(w|in->stru|
|00000790| 63 52 67 6e 2c 20 63 6f | 6e 74 2c 20 77 69 6e 2d |cRgn, co|nt, win-|
|000007a0| 3e 73 74 72 75 63 52 67 | 6e 29 3b 0d 09 43 61 6c |>strucRg|n);..Cal|
|000007b0| 63 56 69 73 42 65 68 69 | 6e 64 28 77 69 6e 2c 20 |cVisBehi|nd(win, |
|000007c0| 63 6f 6e 74 29 3b 0d 09 | 50 61 69 6e 74 42 65 68 |cont);..|PaintBeh|
|000007d0| 69 6e 64 28 77 69 6e 2c | 20 63 6f 6e 74 29 3b 0d |ind(win,| cont);.|
|000007e0| 09 44 69 73 70 6f 73 65 | 52 67 6e 28 63 6f 6e 74 |.Dispose|Rgn(cont|
|000007f0| 29 3b 0d 7d 0d 0d 00 00 | 00 00 00 00 00 00 00 00 |);.}....|........|
|00000800| 00 00 01 00 00 00 01 1a | 00 00 00 1a 00 00 00 46 |........|.......F|
|00000810| fd f0 32 2e fd e0 80 c1 | b0 6e fe 12 6d 04 30 2e |..2.....|.n..m.0.|
|00000820| fe 12 52 40 c0 c1 3f 57 | 00 04 d1 6f 00 04 20 4f |..R@..?W|...o.. O|
|00000830| 0b 49 6e 76 69 73 69 57 | 69 6e 2e 63 02 00 00 00 |.InvisiW|in.c....|
|00000840| 50 61 72 74 53 49 54 78 | 00 00 00 00 00 00 00 00 |PartSITx|........|
|00000850| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 a9 8e 60 40 00 00 | 00 00 00 00 01 60 16 11 |....`@..|.....`..|
|00000880| 06 03 00 0c 08 83 00 00 | 26 54 27 86 40 00 42 33 |........|&T'.@.B3|
|00000890| 40 08 42 67 2f 09 a8 8c | 30 1f 06 40 00 19 20 47 |@.Bg/...|0..@.. G|
|000008a0| b0 68 00 06 6f 04 31 40 | 00 06 32 2e fd a2 0c 86 |.h..o.1@|..2.....|
|000008b0| 00 00 00 02 67 02 72 03 | 37 81 40 06 41 ee ff 86 |....g.r.|7.@.A...|
|000008c0| 2c 28 00 64 52 45 3f 04 | d8 43 20 4c a0 25 d0 43 |,(.dRE?.|.C L.%.C|
|000008d0| a0 24 0c 46 00 01 66 00 | ff 7a 20 52 22 68 00 48 |.$.F..f.|.z R"h.H|
|000008e0| 20 4f 22 07 92 8f 55 41 | 61 00 00 c8 20 07 90 8f | O"...UA|a... ...|
|000008f0| a9 e2 2e 47 32 2f 00 02 | 30 01 d0 6f 00 06 b0 6f |...G2/..|0..o...o|
|00000900| 00 00 00 04 00 06 00 03 | 00 00 00 0e 00 09 0b 50 |........|.......P|
|00000910| 72 6f 67 72 61 6d 6d 69 | 6e 67 00 00 01 00 00 00 |rogrammi|ng......|
|00000920| 01 1a 00 00 00 1a 00 00 | 00 46 00 50 e6 10 12 bc |........|.F.P....|
|00000930| 00 00 00 1c 00 46 00 01 | 45 54 41 42 00 00 00 12 |.....F..|ETAB....|
|00000940| 45 46 4e 54 00 00 00 1e | 03 ec ff ff 00 00 00 00 |EFNT....|........|
|00000950| 00 50 e4 f4 03 eb ff ff | 00 00 00 08 00 50 e5 20 |.P......|.....P. |
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+